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ALL RIGHTS RESERVED. 
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FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
ABSTRACT: 


THIS MODULE CONTAINS SUBROUTINES WHICH, WHEN LINKED 
pe OBJ, FORM TEST MODULE tag a hts» 


ENVIRONMENT: fee MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 


AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: JUL, 1977 
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SYST EP=1 84 
DECLARATIONS ~SEP-1984 04:33:10 CUETPSY.SRCISATSSS (1) 
000000 71 .PSECT RODATA,RD,NOWRT gNQEX XE ,LONG 
0 ce TEST_MOD_NAME:: STRING C.< SATSS § ; TEST MODULE NAME 
0 73 TESTMOD-NAME_D: STRING I.<SATSSS7e> TEST MODULE NAME DESCRIPTOR 
019 74 MSGITINPTCTL:~ STRING Pe SSCVATSZU: ionbi iON 
039 3975 ¢ FAO CTL se FRING FOR MSG1 IN SUCCOMMON.MAR 
0039 id: MSG3_ERR_CTL:: STRING I,< *SSCVA!4ZW: !AS> 
| Bee : FA AO CTL STRING FOR MSG3 IN SUCCOMMON.MAR 
00000200 0051 78 PAGESIZE: .LONG 512 : PAGE SIZE IN BYTES 
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SATSS$72 SATS SYSTEM SERVICE TESTS $CRETVA (SUCC om dt 4 8104: 38 AX/VMS Macro ¥045 99 Page 4 
v04-000 DECLARATIONS “SEP=1984 04:53:10 CUETPSY.SRCIJSATSSS72.MAR;1 (1) 
~ ~PSECT RWDATA,RD,WRT,NOEXE,LONG 
PRIVMASK: -BLKQ ; ADDR OF PRIVILEGE MASK (IN PHD) 
t PAGCNT_ERG: ~BLKL 1 ; PAGCNT ARGUMENT FOR EXPREG 
1 t RETADR_ERG: -BLKQ ; RETADR ARGUMENT FOR EXPREG 
if 4 INADR_CVA: -BLKQ ; INADR ARGUMENT FOR PRELIM CRETVA 
1¢ 5 INADR: -BLKQ ; INADR ARGUMENT FOR SUBJECT CRETVA 
4 § RETADR: -BLK 1 ; RETADR ARGUMENT FOR SUBJECT CRETVA 
3 STARTADDR: ~BLKL 1 ; STARTING ADDR OF CREATED AREA 
00000 Q 8 ENDADDR: -BLKL 1 ; ENDING ADDR OF CREATED AREA 
00000038 0034 9 DISPL: -BLKL 1 ; NO. OF PAGES (DISPLACEMENT) TO CREATE 
00000039 0038 90 NZERR: -BLKB 1 ; NON-ZERO ERROR FLAG: O MEANS NO N-Z ERROR 


[ 


> 15 | 
VICE TESTS S$CRETVA (SUCC 16-SEP-1986 01:01:54 VAX/VMS Macro V0é- p | 
5 Breer e8 BL iShi3G HALL HES Bac te vote O8 uan:1 O93) 


, ~SBTTL CONDITION TABLES 
; teeet CONDITION TABLES FOR CRETVA SYSTEM SERVICE seee« 


COND 1 -NOTARG <PREVIOUS CONDITION OF CREATED PAGES>,- 
PREVIOUSLY CREATED BY CRETVA> 
<PREVIOUSLY CREATED BY EXPREG>.- 
<PREVIOUSLY NON-EXISTENT>,- 


COND 2,NOTARG,<ORDERING OF INADR PAIR>,- 
<1ST ADDR LESS THAN OR EQUAL TO’ 2ND_ADDR>,- | 

<18T ADDR GREATER THAN OR EQUAL 10 2ND ADORD, | 
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5 COND Be LONG . <ACMODE>,=- 
6 <KER NEL>,- 
7 CEXECS. ~ 
a <SUPER>, = 
9 <USER>,= 
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00000000 0 «LONG PSLS$C_KERNEL 
00000001 0 - LONG PSL$C_EXEC 
0900000 8 
0 
0 
0 
0 
A) 
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0 
i] 
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- LONG PSLS$C_SUPER 
0000000 


- LONG PSLSC_USER 


COND  4,NOTARG,<LOCATION OF CREATED PAGES>,- 
<END OF PROGRAM REGION>,- 
<END OF CONTROL REGION>.- 
<MIDDLE OF PROGRAM REGION>,- 


<MIDDLE OF CONTROL REGION>,- 
- LONG 0.1.2.3 
COND 5 ge ae Pp COUNT>,=- 
<ONE PA 


<SMALL COUNT, - 
<LARGE COUNT>,= 
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9 «LONG 1 
? LONG 
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hile TESTS SCRETVA GF uce 1 mie tt 3}: 94:38 
~SBTTL TM_SETUP, TM CLEANUP 
FUNCTIONAL DESCRIPTION: 
SETUP AND TM_ CLEANUP ARE CALLED TO 
REQUIRED HOUSEKEFPI rioa. AT THE BEGINNING AND END, RESP 
TEST MODULE EXECUT 
CALLING SEQUENCE: 
BSBW TM_SETUP BSBW TM_CLEANUP 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 


TM_SETUP: reg aivit INDEX R 
RIVILEGES ACQ 


Cc, 
m>< 
—™~ 


cm 
o- 


COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
SIDE EFFECTS: 


SS CHECK AND ERR_EXIT MACROS CAUSE PREMATURE E 
(VIA RSB) IF ERROR ENCOUNTERED. 
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ERS (R2,3,4,5,6) CLEARED; 


TM_SETUP: : 
CLRL : : INITIALIZE 
CLRL ORR : .. CONDITION 
CLRL RG t lee. TABLE 
CLRL sR a Scoana See 
CLRL = R6 errerre . REGISTERS 
BSBW  §MOD_MSG P : PRINT TEST MODULE BEGIN MSG 
MOVAL TEST_MOD et tt TMD_ADDR : ASSUME END MSG WILL SHOW SUCCESS 
INSV #SUCTESS7#0,#3,MOD_MSG_ cbp ts ; ADJUST STATUS CODE FOR SUCCESS 
MODE NEL MODE TO ACCESS PHD 
OV yore PROCESS HEADER ADDRESS 


$ ; BACK TO USER 
PRIV ADDAACL 


RNL : KERNE 
MOVL Beth RI GET P 
MOVAL PADs0 PRIVASE(RO) [paiva GET PRIV MASK ADDRESS 
; GET ALL PRIVILEGES 


DE 
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; RETURN TO MAIN ROUTINE 
; RETURN TO MAIN ROUTINE 
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; RETURN TO MAIN ROUTINE 
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BSBW CONDX_CLEANUP 
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WHERE X = 1,2,3,4,5 


INPUT PARAMETERS: 
N 
R 
CONFLICT SET TO NON-ZERO IF COND TABLE CONFLICT DETECTED. 


«-SBTTL CONDITION SUBROUTINES = SETUP AND CLEANUP 
C 
( 
I 
F 
T 
IMPLICIT OUTPUTS: 


FUNCTIONAL DESCRIPTION: 
A 
S 
$s 
D 
0 
R2,3,4,5,6 PRESERVED 


CONFLICT = 0 
COMPLETION CODES: 
NONE 


BSBW CONDX 
IMPLICIT INPUTS: 


NONE 
RSB 
CLEANUP 
RSB 
RSB 
CLEANUP 
RSB 


; COND1 
COND2: : 
COND2_ 


0 
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OUTPUT PARAMETERS: 
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CALLING SEQUENCE: 
SIDE EFFECTS: 
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COND3: : 
COND3 ~CUEANUP 
COND4:: 
COND4 ACLEANUP: 
CONDS: : 

RSB 
CONDS cae Yale 
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RETURN TO MAIN ROUTINE 
RETURN TO MAIN ROUTINE 
RETURN TO MAIN ROUTINE 
RETURN TO MAIN ROUTINE 
RETURN TO MAIN ROUTINE 
RETURN TO MAIN ROUTINE 
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AX/VMS Macro V 
UETPSY.SR 
.SBTTL FORM_CONDS 
FUNCTIONAL DESCRIPTION: 


M_CONDS FORMATS AND PRI 
THE CURRENT ELEMERT IN EACH OF THE COND 


CALLING SEQUENCE: 
BSBW FORM_CONDS 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 


R2,3,4,5,6 
FoR COND T 
FOR X = 1 


NFORMATION ABOUT 


NTS | 
ITION TABLES. 


ry CURRENT COND 


ITION suerte INDEX VALUES 

geue : 224324,5, RESPECTIVELY 

TITLE reat FOR CONDX TABLE 
ENT TEXT 4 


ONDA -£ ~ CO CONTEXT T OF THE NOX TABL "ets; 
CONDX-E = DATA ELEMENTS OF THE CONDX TABLE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 


NONE 


Be Se Ge Se Ge Se Ge Be Se Ge Ge Ge Be Ge Ge Ge Be Se Se Ge Se Se Ge Ge Se Ge Ge Se Se Se SeGe Set Se See Se Se Se Se 
4 + 
t 

o 
oO 
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FORM_CONDS:: 
SFA 


O_S MSG1_INP_CTL,FAO_LEN,FAO_DESC, TESTNUM 
7 FORMAT CONDITIONS HEADER MSG 
BSBW © OUTPUT_MSG + ... AND PRINT IT 
CcMPBSédM ONDI7C NULL : ISCONDITION 1 NULL ? 
BNEQU + NO == CONTINUE 
ives BRW FORM_CONDSX t YES == SUBROUTINE IS FINISHED 
MOVAL COND! Sffe! : SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO 
MOVL COND1 cThB R21 MSG 8B ; SAVE ADDR OF COND 1 CURR TEXT ett FOR FAO 
MOVB  &#COND G_¢€Tx SAVE CONDITION 1 CONTEXT F 
MOV_VAL COND1_C, CORT “EtR2), MSG baal : GIVE COND 1 DATA VALUE ro” FAO 
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v04 FORM_CONDS -SEP=1 4: UETPSY.SRCJSATSSS72.MAR; 1 (1) 
FEFG' 30 109 5 BSBW WRITE ng6e ; FORMAT AND WRITE CONDITION 1 MSG 
10¢ § CMPB #cOnd2_C ,WNULL + IS CONDITION 2 NULL ? 
1 10F BNEQU + NO == CONTINU 
OOA2 3 +H : ion RW FORM_CONDSX t YES == SUBROUTINE IS FINISHED 
00000000' EF QOOBC'EF DE 0114 0 MOVAL COND atts ; SAVE ADDRESS OF CONDITION 2 TITLE FOR FAO 
00000000' EF 990004" EFAS p 11F MOVL COND SB R3] MSG_B ; SAVE ADDR OF COND 2 CURR TEXT ELT FOR FAO 
1 ; MOVE  #CON G_eTxT” SAVE CONDITION 2 CONTEXT FOR FAO 
1 MOV_VAL CONDE t c tOND2. ECR3), MSG_ BATAY GIVE COND 2 DATA VALUE TO FAO 
FECB 30 1 4 BSBO ; FORMAT AND WRITE CONDITION 
4 «#4060 «(O91 O01 5 CMPB ’ CONDS C. #NULL ; 1S CONDITION 3 NULL ? 
; i 138 6 BNEQU 30$ ; NO_== CONTINUE 
00 A ee BRW FORM_CONDSX : YES == SUBROUTINE IS FINISHED 
00000000' EF 90000126 "EF DE 13D 3 MOVAL COND sts ; SAVE ADDRESS OF CONDITION 3 TITLE FOR FAO 
00000000"EF | 00000137" EF 44 B60 148 40 MOVL COND stiB Ra) MSG B : SAVE ADDR OF COND 3 CURR TEXT ELT FOR FAO 
158 4¢ MOV_VAL ECUNRS AC t ENDS. EtRsd, MSG_ BaTAL GIVE COND 3 DATA VALUE TO FAO 
FE96" 30 16 4 SBQ)s« WRITE MS FORMAT AND WRITE CONDIT MSG 
% 0 1 016A 344 CMPB BCONDE™ C,#NULL ; I$ CONDITION 4 NULL ? 
47 13 016d «= 345 BEQLU FORM_COND ; YES == SUBROUTINE IS FINISHED 
QO000000"EF  OO00016E'EF 0D 16 46 MOVAL CONDS_T ate A : SAVE ADDRESS OF CONDITION 4 TITLE FOR FAO 
00000000'EF  00000189'EF4S DO O17A 34 MOVL  COND4 TAB RS) MSG 8B : SAVE ADDR OF COND 4 CURR TEXT ELT FOR FAO 
00000000'EF 00 90 0186 48 MOVB #CON 6_¢Tx VE CONDITION 4 CONTEXT FOR FAO 
18D 4 MOV_VAL C Va w C CONDE etRS). MSG_ BaTAL GIVE COND 4 DATA VALUE TO FAO 
FE70" 30 180 50 BSBQ ORT : FORMAT AND WRITE CONDITION 4 MSG 
14 00 91 01 9 51 CMPB BONDS C #NULL : IS CONDITION NULL ? 
21. 13 «019 3 BEQLU  FORM_CON AbSx : YES == SUBROUTINE IS FINISHED 
00000000'EF  O0000207"EF DE 0195 35 MOVAL CONDS_T,MSG_A : SAVE ADDRESS OF CONDITION § TITLE FOR FAO 
00000000'EF  00000213'EF46 DO O1A0 354 MOVL CONDS cTABEREI 1,MSG_B : SAVE A R OF COND 5 CURR TEXT ELT FOR FAO 
00000000'°EF 00 90 OIA 55 MOVB  #COND €TxT™ AVE CONDITION 5 cONTERT FOR FAO 
01B 36 MOV_VAL CONDS ‘t ONDS DS_ECR6],MSG_ batay : GIVE COND 5 DATA VALUE TO FAO 
FE4A' 30 0185 37 oo conse WRITE~MSG2 ; FORMAT AND ORITE CONDITION 5 MSG 
05 0186 359 ~" RSB ; RETURN TO CALLER 


SEP-19B¢ 04:83:10 WerPsy.snessavssseo.mar;, “2% Uf, 


ucc <* 


K 15 
: A bahia SERVICE TESTS SCRETVA (S 


SAT 
VER 


$8 72 


SAT 
v04 


wn 
z w” 
z o - 2 oO 
“- Oo2 <« w= sz oa 
— _ wu ur [?er rr ate 
—- —weeEu . —Zz contr 
—ZoQvuu Ow a x>O on >uU 
oo2--- wn w oac2az e> w 
Z2u0>r>aaE> ” Z2u> cour 
oO wawdatadt «+ w ounw wat w 
eo w> _ OoOw> = w ” Vv a @& 
won Zu JO -& w z< <= z 
“ant we Paget = aw o ae 
Oo +E sWwOoOUwwa - I orn uYrZz 
ee ee ee ee 7) <= wet mew 
Zz Oe wwe I Me > > —-YMws 
OMmMwwvec Geez Yna Ywaend _ 
= sxe WT OOVUW x ™“ w w we wo _ 
—WOUM>anwaoze cw w 2M _ “oO a 
ge codes oct a a 2 woo w 
Je wee o~r w z «qn Ootw 
—MOuMm var > _ > w aor Ww 
aeqaqw 4H Oo ®Mu @ wo ° « 
wren~wwZsoOo OM we «x Ya>— a P= J 
O-M@rto[02 -<aa- ee oe od “wot uw _ 
VOW ee » Fe} <qwat -os3 a Zt 
“~~ ” << JJuw>w w ows wuew w = 
zor wre we FT -> 2 Noten ee w 
vumsawo 2av «tor — wet o ao z < 
Dg a ee ee ze oF a> > a 
w o=~-e=5 crea . ov eunrt oO 
<w OF fe ewWMwH “Ww lise 24 rw) ws 
eww vt tell Sort 1 -a JO os o 2 ” 
oa wk sw oz “—N 2 - az@ w — | 
“uz 3420 [. 4 oer ao] Qw —-2z al a=) <- 
SAW usW se We Za ew -Oam « a (eT —) 
w -YMwZszrworx< oS ws —Zeo oO uw 
Vw 30 ee we we oO vw = wre5D wa «< wna 
Z2Ztw on D> | wae mw Oo2o we w a Ow 
or>ra &— +-jJwewt - oa s“sF w cre 
H2sea> ive 2s~ nod Zui vz 
Qa>-<a > eow> WMOaw we WwW “J ive zo 
wow = a 23> am wis “Nduw _ o 
— wHnweoaw <u a > @&rt VevU i=) 
jQaawnacduwrnvew DD 2N Oke w . w Oo —-2z 
<wn sww08.uwr DO sz ws a q —O ext a mk 
VZwOvervgtvovvac@oodct —-iu 8X Dre uy w =< 
ev Www zu z “oO a oo 3 ~ wa 
- YE -7DWwAA xa ete “mw zz —-Ouw 3 © 
Zz ees YD KXWE DwY <w s “wo D.ZzMm z <a 
oO wn ->w “nv — IT ww oO oaw So ca 
—- = Fe Ewe — oF 2Z2@:+ ta Sawa 2 wou 
—_ —§ ew rTOote)OVvOxZ o<a<mMx@ovuac OoOrvod 
—- 2 SHO rv IW wetwe vr sOoctco - Zww oO ou 
eon xc ™ <2z2oruH &- - }- * NZeaetu “ eDre - = 2~- 
wa Sc ww Ww WOOD ww ehClhCUh OM -" 02 :O « yn WwW Ne ” < 
> ve Sawer Zzrtoc Wwew WY = ” *Zer wu w —- <> x w ~~ 
n” ~~ ewe OOMEF ww FZ & ww - mo - > tWJjuww ao w ~<a 
w - = &-eaew Fe ww P~ wo it w a wetitih's ow - wm 
—_ oa Y FF OYV VY Gew 7D > w aw, = —- -awaen wo YY wo 
- wm 2z2zu<awox oe = 2 “= < > ew3aacc Oo - = 
—- J Dw =I Z2ZETtowoe w 3B tw = MO =ewoOoO rz wo 2 « vw we 
Qo <« ajjion-ZuO fa tw ww @ ea 2 ao <= Zz ce iwi «&o 4 w | md 
”“”4 2 <Owct OK war ”y4 « orn oOo C: <P eg 
- Oo >See SEweweT Su O @M@awtkee & u 2ae Setew —- we Ww 
_ eure Ttaexvovwe 2 Cs) te vw w w 
e w wx ci ot _ ot - _ _ 
v jovaw a o2zzZz + ~ > po | a. at a w 
=z Z2Zwe Afaeaeewa a a _ a = a 
= et ett Seen ted ft | < z = = = =“ 
uo —VOw~Odtvuwras Vv _ nt o _ ad ” 


++ 


*e*e ee £6 28 6 8 5S 28 £8 8H FS FS FS FS FS FS FS FR FS FS FR FS FS FS FR FS FS FTO FS FETE FS FSFE FESS FSFE FESO FS SS FS *O SCH CR FO FE FO SE FE FE FE *e 


PNT WNOPR. WOOK CUM TN oS AS — VI TINOR.. OAO— UM TFN OR. DAO MUM TFN OR. DOO CUM TNO 
OWOO0000000P-P-R-P-PPR-PP-B.BR. DWBA DD BDBDDDAAAAAAMAAAOOOOCOCOCOCCCSC Ke eK KKK — 
ll ll ee eee ee eee ee ee ee ee ee 


DBDOODAMDOMDOMOOMDADD AMD ODD OMDAD DODD ODO ODMDODODODDMDDODODADMDODODODODOMDOODODODODOODOODOOOO®H 
, sah se seh eth seed seed, meh sel seh seh el eh eh see seh seh seh send see see seh seh me se ce seh eh, meth mee ce lh seh seth see ch eh. eel. rue se gh seh, mh see shhh eh seh se se eh lh se ee se 


COOOOOOOCOOOOSOOSOSOOSOSOSOSOSOSOOSOSOSOSOSSOSOSOSOSOOSOOSOSSOOSOSCOOSOSOOSSOSOSOOOOOOO 


L 15 
SATSSS72 SATS SYSTEM SERVICE TESTS ScRETVA (SUCC 16-SEP=1 1:01:54 VAX/VMS Macro vO Page 13 Si) 
9042000 VERIFY -SEP=19 198 gh38 :10 CUETPSY.S Hata ees oe mai o§ 6 v 
1B7 418 ;-- 
187. 41 
1B7. 4 
1B? 421 
1B7. 4 3 VERIFY:: 
00000000' FF 5 187 4 3 Is78 FLAG : SHOULD CONDITIONS BE PRINTED ? 
FEFF 30 18 4 3 : BSBW FORM_CONDS : YES <= FMT & PRINT ALL CONDS FOR THIS T.C. 
O2C'EF 04 163 427 CLRL = STA : CLEAR STARTING ADDR OF AREA TO BE CREATED 
00000008 ' EF 0080928 0° ogee D0 1c8 «4 : MOVL SONGS. PERO gpAGeNT _ERG ; GET PAGE COUNT 
00000034'EF  O0000008'EF oD 0104 4 MOVL = PAGCNT ER G51 : REMEMBER IT FOR LATER 
01 QOUOO1F7°EF4S D1 ODF 430 CMPL COND4_ECRS4, BP : ARE PAGES IN MIDDLE OF A REGION ? 
07 15 O1E7 431 BLEQ i9s : NO -= PAGCNT_ERG IS OK 
00000008'EF 05 Cd giES 43¢ ‘on ADDL2 #5,PAGCNT_ERG : YES == ADD SOME PAGES 
OIF 434 MODE _—‘T0,20$ ; GO TO KERNEL MODE TO ISSUE SERVICE 
0213 435 SEXPREG_S PAGCT ERG. RETADR 
0213 436 ODETR4].COND4_E RS ; ISSUE PRELIM S.S. TO GET SOME PAGES 
0234 43 MODE FROM MOOS : BACK TO 
QOOOD0OC'EF D5 0235 438 TSTL §RETADR_ERG : DID EXPREG DO ANYTHING ? 
6C 12 0238 439 BNEQ : YES == TH E 
00000000'EF  00000000'8F D0 023D 440 MOVL § #SS$_NORMAL,EXPV ; NO == = LOAD EXPECTED AND 
00000000'EF 50 DO 0248 441 MOV : VALUES, THEN EXIT 
eur 44g ERR_EXIT LONG, <UNEXPECTED RETADR PAIR RETURNED BY NON-SUBJECT>,- 
O5a9 464 308 
00000030'EF  Q0000010'EF D0 02A9 445 MOVL = RETADR_ERG+4 ENDADDR ; GET ENDING ADDR OF AREA TO BE CREATED 
QOOO002C"EF  OOO0000C'EF DO O2B4 44 MOVL § RETADRTERG,STARTADDR =: GET TENTATIVE START ADDR OF AREA 
00000034"EF QO0000008'EF D1 O7BF 447 CMPL —- PAGCNT “ERG, BISPL : WERE 5 PAGES ADDED 10 DISPLACERENT ? 
1c (13 Deca 448 BEQL 45$ : NO -- LEAVE STARTADDR ALONE 
59 00000051"EF Dd 4% CC 449 MOVL PAGESIZE,R9 ! YES <= STARTADDR TO BE MODIFIE 
03 OOOOO1F7*EF4S E9 0203 450 BLBC  COND4_ELR51,40$ : IF PROGRAM REGION, LEAVE R9 ALONE 
> 8 & 0208 431 ae MNEGL R9,R9 + PROGRAM REGION -- NEGATE R 
59 05 C& ODE re MULL2 #5,R9 : GET LENGTH OF 5 PAGE 
ooooo02c"EF 59 CO eel 434 ea ADDL2 R9.STARTADDR : COMPUTE START ADDR 6 AREA TO BE CREATED 
Oge8 456 MODE  _T0,50$,KRNL : INTO KERNEL TO DO A STORE 
00000030'FF O0000000°EF 90 0308 45 MOVB ONES. @ENDADDR ; INDICATE WE WERE HER 
0 16 458 MODE FROM, 50$ : AND GET BACK TO USER, 
01 52 91 0317 459 CMPB Re on : 2ND CONDITION 1 ELEMENT ? 
! 12 O31A 460 BNEQU 73$ : NO == CONTINU 
O15F = 31 31¢ 46] i BRW 71$ : YES == LEAVE UE XPANDED REGION AS IS 
02 52 91 O31F 288 CMPBeaR2, #2 : 3RD CONDITION 1 ELEMENT ? 
03 «(12 2 464 BNEQU 74§ : NO -- CONTIN 
0068 31 4 465 iad BRW 60$ : YES == GO CONTRACT REGION 
00000014"EF  0000002C'EF 00 7 46 MOVL § STARTADDR, INADR_CVA ; MUST BE 1ST COND 1 ELEMENT 
00000018'EF  O0000030'EF oD 2 468 MOVL ENDADDR I NADR_COA+4 : GET READY FOR DELT 
33p 0-469 MODE 10,6 AN : NEED KERNEL MODE 
60 470 SDELTVA_S | NADRS =[NADR CVA 
$ 471 CMODE=ACMODECR4] ;_ DELETE EXPANDED AREA 
6 Are MODE ‘FROM, : BACK TO USER MODE 
77.4? SS_CHECK NORMAL : DID IT GO OK ? 
AS 474 MODE «TO, 70$, KRNL t INTO KERNEL FOR A PRELIM CRETVA 
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SATSSS72 SATS SYSTEM SERVICE TESTS SCRETVA (SUCC 16-SEP-1984 ‘AX/VMS v04- Page 14 S 
5042800 VERIFY met te 9}: 4 UETPSY. SRCEISAT Vets 95. MARST C4) vi 
C8 475 SCRETVA_S INA R= INADR_ CVA, ACMODE=ACMODECR4I 
DE 476 MODE PROM 70 ; USER MODE 
, 67 SS_CHECK NORMAL’ : CHECK FOR NORMAL RETURN 
6F 11 2 D $78 408: BRE 71$ 3 «e. AND GO DETERMINE ORDER OF INADR PAIR 
40F 480 MODE  10,68$,K KERNEL MODE FOR CNTREG 
rk 481 SCNTREG_S OISPL, RAE MODELRGI. conpd EER x 
ret ae : s"CONTRACT REQUESTED SIZE (NOT THE EXTRA 5) 
ee Ct MODE _—~ FROM, 68$ + ... AND GET BACK TO USER MODE 
430 4 4 aad SS_CHECK NORMAL : CHECK FOR NORMAL RETURN 
00000030'EF  O000002C'EF 1 47 4 6 "  CMPL STARTADDR, ,ENDADDR ; FIND LARGER ADDRESS 
10 1A 48 4 BGTRU + STARTADDR LARGER 
SA Q000002C'EF 00 04 488 MOVL § STARTADDR,R10 : SMALLER VALUE IN R10, 
5B 00000030'EF DO 0492 489 MOVL END ADDR, R11 + we LARGER IN R11 
OE 11 499 490 pe BRB 5$ + CONTINU 
5A Q0000030'EF 00 0498 49¢ " MOVL ~=—s ENDADDR,, R10 ; SMALLER VALUE IN R10, 
5B O000002C'EF 00 Q4ag 493 an MOVL § STARTADOR,R11 t se. LARGER IN R11 
53 95 0409 495 °  TSTB  R3 : 1ST CONDITION 2 ELEMENT ? 
10 13 O4aB 496 BEQL 77% : YES == LOWER ADDRESS GOES FIRST 
Q000001C'EF 5B DO O4AD 497 MOVL R11, INADR + NO -- HIGHER ADDRESS GOES FIRST 
00000020'EF 5A 00 0484 498 MOVL R10. INADR+4 ; 
0 11 0488 499 BRB 79$ : CONTINUE 
048D 500 77S: 
QOOOO01C'EF SA DO 048d 501 MOVL R10, INADR ; LOWER ADDRESS GOES FIRST 
00000020'EF 5B DO 04¢4 20¢ MOVL R11. INADR+4 Eh tase ie 
04€8 503 79$: 
04¢8 204 MODE  10,80$,KRNL ; INTO KERNEL MODE . 
Q4EE 306 } ®eeeee SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE **eeee 
Gee 208 . SCRETVA_S INADR RETADR,ACMODELR4] 
508 509 MODE “FRO > BACK TO USER 
00000000'8F 50 »p1 0509 510 CMPL = RO ones _NORMAL : CODE RECEIVED = CODE EXPECTED ? 
61 13 0510 311 BEQLU 818 > YES <= MORE VERIFYING 
00000000'EF  00000000'8F D0 0512 1 MOVL  #SS$_NORMAL,EXPV : NO <= LOAD UP EXPECTED AND 
00000000'EF 50 DO 051d 51 MOVL —_RO,R . RECEIVED VALUES, THEN EXIT 
0324 314 oe ERR_EXIT LONG, <INCORRECT STATUS tobe RETURNED FROM CRETVAD 
00000024 ‘EF 0000001¢ "EF D4 0373 16 ‘ CMPL INADR .RETADR ; DID CRETVA GIVE US THE 1ST PAGE ? 
00000028 ' EF 00000020" EF D1 0580 18 CMPL NADR+4,,RETADR+4 : HOW ABOUT THE WHOLE RANGE ? 
12 0588 51 BNEQU $ : NO <= ERROR 
6711 3 E 2 ae BRB $ + CONTINUE 
Q00000000'EF  O000001C'EF 7D O58F : : mova INADR EXPV : LOAD UP EXPECTED AND 
00000000'EF 00000024'EF 7D 059A RETADR,RECV RECEIVED VALUES, THEN EXIT 
5A5 4 te _EXIT QUAD, SUNE XPECTED VALUE FROM’ CRETVA FOR>, = 
03 0000015E "EF 44 D4 af 5 j CHPL ACMODELR4],#PSLSC_USER ; USER MODE PAGES REQUESTED ? 
00 OO0001SE'EFS, D1 06 6 § CMPL § ACMODECR4],#PSLSC_KERNEL ; KERNEL MODE PAGES REQUESTED ? 
25 13 06 0 BEQLU 84$ :YES == GO CHG TO KERNEL MODE 
60A 1 MODE  10,85$,EXEC : GET INTO EXEC MODE TO ACCESS NEW PAGES 
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SATSSS72 SATS SYSTEM SERVICE TESTS SCRETVA (SUCC 16-SEP-1984 01:01:54 VAX/VMS Macro Page 15 
5042000 VERIFY Breer Tabs baigsit6 FORSMES Bacco WOeeOO aan. Page 15, 
ae | ? ; pe BRB 90$ : se. AND CONTINUE 
F 4 nal MODE  10,85$,KRNL ; GET INTO KERNEL MODE TO ACCESS NEW PAGES 
00000038'EF 94 : ; 6 aii CLRB = NZERR : INDICATE NO NON-ZERO ERROR 
A 9 $3 ; " -TSTB (R10) : DOES THIS PAGE HAVE A ZERO BYTE ? 
9 12 065A BNEQ 92% : NO == GO INDICATE 
6A O0000000'EF 90 065 40 MOVB ONES, , (R10) : STORE INTO PAGE == NO ACCVIO EXPECTED 
1A 11 66 41 ae BRB 3$ : GO LOOP TO NEXT PAGE 
00000038 ' EF 00000000" E 90 66 rk "  MOVB~—s ONES NZERR : INDICATE A NON-ZERO, ERROR WAS FOUND 
00000000' 4 06 4 CLRB ss EXPV : LOAD UP EXPECTED A 
00000000’ EF 90 0676 545 MOVB (R10) ,RECV t ce. RECEIVED VALUES. 
yh 11 0670 246 ios BRB 100$ : GO GET USER MODE BACK 
FFCF SA 00000051"EF 5B FI nf 248 ‘eae ACBL  R11,PAGESIZE,R10,91$ | ; ADVANCE TO NEXT PAGE 
03 O000015E'EF44 D1 0689 550 "  CMPL —-s« ACMODECLR4J,PSLSC_USER ; USER MODE PAGES ? 
01 13 0691 551 BEQLU 110$ : YES =-= NO NEED TO CHG MODE 
0695 558 ae ODE  FROM,85$ : GET BACK TO USER MODE 
00000038'EF 95 0694 $34 " TSTB ss NZER ; NON-ZERO ERROR FOUND ? 
4B #13 069A 555 BEQL VERIFY NO == EVERYTHING VERIFIES 
069 6-556 ERRE “EXIT BYTE, _* PAGE IN THE CREATED AREA IS NON-ZERO> 
06€7 557 VERIFYX: 
05 0667 558 RSB ; RETURN TO CALLER 
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VF Y_CLEANUP 
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SATSSS72 SATS SYSTEM SERVICE TESTS S$CRETVA (SUCC 16-SEP-1984 01: YAX/ VS Macro V04- Page 17 
y042000 VFY_ CLEAN Breer I Fhe Baiehits Fontes cars ealecseo mans: Pee? 17, 
OIC'EF  QO00002C’EF oD F3 617 MOVL STARTADDR. INADR ; GET READY FOR DELTVA 
§o08K025" EF Mantis teh D ere eis MOVL ENDA R_ ANADR +4 FS 
9 61 MODE _—‘TO,1 KERNE “MODE FOR DELETE 
7 620 SDELTVA_S As kAN srmotaacholith 
742 621 PELETE CREATED AREA 
742 6 j MODE _—~ FROM, 10$ : BA CK TO USER MODE 
743 6 SS_CHECK NORMAL ; CHECK FOR NORMAL RETURN 
01 QO00001F7"EFSS D1 0771 624 CMPL COND ERS, #1 + WAS AREA IN 'MIDDLE’’ OF A REGION ? 
68 1B 0779 625 BLEGU vey UPi ; NO == TIME TO EXIT 
778 «6 : MOD z0 YES -- ERNE! MODE TO ISSUE CNTREG 
79 6 SCNTREG_ g 0, (EN, COND4 atts : GET RID Or THE DR PAGES 
078 6 : MODE mM. 20$ ; BACK TO US 
788 «6 SS_CHECK NORAAL : BNECK FOR NORMAL. RETURN 
07E6 630 VFY_CLEANUPX: 
05 O7E6 631 RSB ; RETURN TO CALLER 
O7E7 632 END 
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Symbol table 


$$$$ 
SSSCHARS 


DA 
STRINGS 


COND2_C 
COND2— CLEANUP 
COND2~E 


COND2~ 
COND2— 
COND2-TAB 
COND 

COND3_C 

COND3~ CLEANUP 
COND3~E 

COND =H 
Conds TAB 


CON De 

COND4 "CLEANUP 
“1 

COND4~ TAB 

COND s 

COND5~ CLEANUP 
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PAGCNT_ERG 
PAGESIZE 


PCy 
PHD$Q_PRIVMSK 
PRI « 


REC 
REST_REGS 
RETADR 
RETADR_ERG 
AVE_REGS 
SS$_RORMAL 
STARTADOR 


SUCCESS 
SYSSCMEXEC 
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SATSSS72 SATS SYSTEM SERVICE TESTS S$CRETVA (SUCC a tt 9 91:9 54 yes ro 
Symbol table -SEP=1984 04: 10 CUETPSY.SRCJSA 
TM_ SETUP + RG 4 
VERIFY B7 RG 4 
VERIF YX E7 R 4 
VF Y_CLEANUP E8 RG 4 
VFY_ CLEANUPX 0 £8 R 4 
WOR = 000000 G 
WRITE_MSG2 etereeee 04 

treme nn nme reese wood 

! Psect synopsis ! 

$merercacerece eoaae + 
PSECT name Allocation PSECT No. Attributes 
- 00000000 <¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
SABSS 444 4 44 ( Q-} 01 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 
RODATA 00000055 <¢ | ) 8 ( ¢°) NOPIC USR CON REL LCL NOSHR NOEXE RD 
RWDATA eat ae ZS +} 03 ¢ -) NOPIC USR CON REL LCL NOSHR NOEXE R&D 
SATSSS72 000007E ( 2023.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR RD 

$e weer reece se eeeren wwe ee ee + 
: Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization 5 00:00:00.07 00:00:00.33 
Command processing 133 00:00:00.65 00:00:02.72 
Pass 1 269 00:00:08.49 00:00:16.59 
Symbol table sort 0 00:00:00.56 00:00:01.15 
Pass 2 130 00:00:02.31 00:00:04.55 
Symbol table output 15 00:00:00.09 00:00:00.09 
Psect synopsis output 2 00:00:00.03 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 586 00:00:12.22 00:00:25.47 


The working set Limit was 1500 pages. ; 

46744 bytes (92 pages) of virtual memory were used to buffer_the intermediate code. 

There were 20 pages of symbol table space allocated to hold 350 non-local and 80 local symbols. 
632 source lines were read in Pass 1, producing 27 object records in Pass 2. 

38 pages of virtual memory were used to define 29 macros. 
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: Macro Library statistics H 


Macro Library name Macros defined 
_$255$DUA28: Suet OE Te 8: S 
_5 ge gDuAcs: SYS.OBJJLIB.MLB;1 1 
$255$DUA28:(SYSLIBJSTARLET.ALB;2 16 
TOTALS (all Libraries) 26 


677 GETS were required to define 26 macros. 
There were no errors, warnings or information messages. 
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SATSSS72 SATS SYSTEM SERVICE TESTS $CRETVA (SUCC 16=SEP=-1 AX/VMS Macro V04- Pa 2 
vAKStt Macro Run Statistics : -SEP- 2138 ga: 33:74 :10 CUETPSY.SRCISAT 1$¢s79 MAR; 1 = ap 
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